module Quicksort where

qsort []     = []
qsort (x:xs) = qsort smaller ++ [x] ++ qsort bigger
    where smaller = filter (<x)  xs
          bigger = filter (>=x) xs
